Chip 2007 January, February, March & April

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-04d.zip / 04d / Hity z okladki / Plus Firma / AccessRT / Office1.cab / RPT2HTM4.XSL < prev next >

Wrap

Extensible Markup Language | 2003-10-09 | 51KB | 1,529 lines

∩╗┐<?xml version="1.0" encoding="UTF-8"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"> <ox:meta inputtype="ReportML" outputtype="HTML4WebRpt" displayname="HTML 4.0 Sample (XSL)" xmlns:ox="urn:schemas-microsoft-com:officexsl"/> <xsl:template match="/"> <xsl:pi name="xml">version="1.0"</xsl:pi> <xsl:element name="xsl:stylesheet"> <xsl:attribute name="xmlns:xsl">http://www.w3.org/TR/WD-xsl</xsl:attribute> <xsl:attribute name="language">vbscript</xsl:attribute> <xsl:choose> <xsl:when expr="FInvalidReportML(this)"> <xsl:element name="xsl:template"> <xsl:attribute name="match">/</xsl:attribute> <xsl:eval no-entities="true">HandleErrors(this)</xsl:eval> </xsl:element> </xsl:when> <xsl:otherwise> <xsl:element name="xsl:template"> <xsl:attribute name="match">/</xsl:attribute> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=UTF-8"/> <TITLE> <xsl:value-of select="RPTML/REPORT[0]/TITLE"/> </TITLE> <STYLE TYPE="text/css"> <xsl:apply-templates select="RPTML/REPORT[0]/STYLE"/> </STYLE> </HEAD> <xsl:apply-templates select="RPTML/REPORT[0]"/> </HTML> <xsl:element name="xsl:script"> <xsl:cdata> 'variable declaration dim cNodes dim iCurrNode dim rgNodes() dim objCurrNode dim sizeIncrement dim objGroupNodes dim rgFields() dim rgRowsources() dim rgGroupOn() dim rgGroupInterval() dim rgfGroupBoundaries() dim cGroups dim cGroupBoundaries dim rgGroupRowsources() 'variable initialization sizeIncrementGroup = 10 sizeIncrementNode = 100 cNodes = 0 cGroups = 0 cGroupBoundaries = 0 iCurrNode = 0 objCurrNode = null objGroupNodes = null ReDim rgNodes(sizeIncrement) ReDim rgFields(sizeIncrementGroup) ReDim rgRowsources(sizeIncrementGroup) ReDim rgGroupOn(sizeIncrementGroup) ReDim rgGroupInterval(sizeIncrementGroup) ReDim rgfGroupBoundaries(sizeIncrementNode) ReDim rgGroupRowsources(sizeIncrementGroup) function SetGroupFilter(iLevel, strField, strRowsource, strGroupOn, strGroupInterval) if (cGroups Mod sizeIncrementGroup) = 0 then ReDim Preserve rgFields(sizeIncrementGroup+cGroups) ReDim Preserve rgRowsources(sizeIncrementGroup+cGroups) ReDim Preserve rgGroupOn(sizeIncrementGroup+cGroups) ReDim Preserve rgGroupInterval(sizeIncrementGroup+cGroups) ReDim Preserve rgGroupRowsources(sizeIncrementGroup+cGroups) end if dim Field dim Rowsource dim GroupOn dim GroupInterval rgFields(cGroups) = strField rgRowsources(cGroups) = strRowsource rgGroupOn(cGroups) = strGroupOn rgGroupInterval(cGroups) = strGroupInterval cGroups = cGroups + 1 SetGroupFilter = "" end function function AppendNodeIndex(objNode) dim iNode dim fGroupBoundary iNode = childNumber(objNode) - 1 if (cNodes Mod sizeIncrementNode) = 0 then ReDim Preserve rgNodes(sizeIncrementNode+cNodes) end if rgNodes(cNodes) = iNode if (cGroupBoundaries Mod sizeIncrementNode) = 0 then ReDim Preserve rgfGroupBoundaries((sizeIncrementNode*cGroups)+cGroupBoundaries) end if if (cGroups > 0) and (cNodes > 0) then For i = 0 To (cGroups - 1) set objCurr = objNode.selectSingleNode(rgFields(i)) set objPrev = rgGroupRowsources(i).item(rgNodes(cNodes-1)).selectSingleNode(rgFields(i)) rgfGroupBoundaries(cGroups*(cNodes-1) + i) = OnGroupBoundary(objPrev, objCurr, rgGroupOn(i), rgGroupInterval(i)) Next end if if (cGroups > 0) and (cNodes = 0) then For i = 0 To (cGroups - 1) set rgGroupRowsources(i) = objNode.selectNodes("/dataroot/" & rgRowsources(i)) Next end if cGroupBoundaries = cGroupBoundaries + cGroups cNodes = cNodes + 1 AppendNodeIndex = "" end function function GetNodeIndex(iNode) GetNodeIndex = rgNodes(iNode) end function function NextNode() iCurrNode = iCurrNode + 1 NextNode = "" end function function CacheCurrentNode(objNode) set objCurrNode = objNode CacheCurrentNode = "" end function function Page() Page = 1 end function function Pages() Pages = 1 end function function ToString(varValue) if IsNull(varValue) then ToString = "" exit function end if ToString = "" & varValue end function function Format(varValue, strFormat, strAdditionalArgs) dim FormatTemp if (IsDate(varValue)) then select case strFormat case "General Date" FormatTemp = FormatDateTime(varValue, vbGeneralDate) case "Long Date" FormatTemp = FormatDateTime(varValue, vbLongDate) case "Medium Date" FormatTemp = Day(varValue) & "-" & MonthName(Month(varValue), True) & "-" & Mid(Year(varValue), 3, 2) case "Short Date" FormatTemp = FormatDateTime(varValue, vbShortDate) case "Long Time" FormatTemp = FormatDateTime(varValue, vbLongTime) case "Medium Time" strTemp = FormatDateTime(varValue, vbLongTime) if (IsNumeric(Mid(strTemp, 2, 1))) then FormatTemp = Mid(strTemp,1,5) & Mid(strTemp, 9) else FormatTemp = Mid(strTemp,1,4) & Mid(strTemp, 9) end if case "Short Time" FormatTemp = FormatDateTime(varValue, vbShortTime) case else FormatTemp = FormatDateTime(varValue, vbGeneralDate) end select else if (IsNumeric(varValue)) then select case strFormat case "General Number" FormatTemp = varValue case "Currency" Dim lcid if (IsNumeric(strAdditionalArgs)) then lcid = SetLocale(strAdditionalArgs) FormatTemp = FormatCurrency(varValue) SetLocale(lcid) end if case "Fixed" if (IsNumeric(strAdditionalArgs)) then FormatTemp = FormatNumber(varValue, strAdditionalArgs, vbTrue, vbUseDefault, vbFalse) else FormatTemp = FormatNumber(varValue, 2, vbTrue, vbUseDefault, vbFalse) end if case "Standard" if (IsNumeric(strAdditionalArgs)) then FormatTemp = FormatNumber(varValue, strAdditionalArgs, vbUseDefault, vbUseDefault, vbTrue) else FormatTemp = FormatNumber(varValue, 2, vbUseDefault, vbUseDefault, vbTrue) end if case "Percent" if (IsNumeric(strAdditionalArgs)) then FormatTemp = FormatPercent(varValue, strAdditionalArgs) else FormatTemp = FormatPercent(varValue) end if case "Scientific" nExp = Int(Log(Abs(varValue))/Log(10)) nValue = Round(CDbl(varValue)/(10^CDbl(nExp)), 2) if (Sgn(nExp) < 0) then FormatTemp = FormatNumber(nValue, 2, vbTrue, vbFalse, vbFalse) & "E-" & nExp else FormatTemp = FormatNumber(nValue, 2, vbTrue, vbFalse, vbFalse) & "E+" & nExp end if case "True/False" if (CBool(varValue)) then FormatTemp = "True" else FormatTemp = "False" end if case "Yes/No" if (CBool(varValue)) then FormatTemp = "Yes" else FormatTemp = "No" end if case "On/Off" if (CBool(varValue)) then FormatTemp = "On" else FormatTemp = "Off" end if end select end if end if if IsEmpty(FormatTemp) then FormatTemp = varValue end if if FHasNoContent(FormatTemp) then Format = " " else Format = FormatTemp end if end function function FHasNoContent(objValue) if (IsNull(objValue) or IsEmpty(objValue) or objValue = "") then FHasNoContent = true else FHasNoContent = false end if end function function IIf(fCond, objTrue, objFalse) if fCond then IIf = objTrue exit function end if IIf = objFalse end function function nz(varValue, varReplace) if (varValue = null) or (varValue = "") then nz = varReplace else nz = varValue end if end function function sum(strExpr, iLevel) Dim nSum nSum = 0 set objCurrNodeT = objCurrNode For i = GetGroupLowerBound(iLevel) to GetGroupUpperBound(iLevel) set objCurrNode = rgGroupRowsources(iLevel).item(rgNodes(i)) nSum = nSum + eval(strExpr) Next set objCurrNode = objCurrNodeT sum = nSum end function function Count(strExpr, iLevel) Count = GetGroupUpperBound(iLevel) - GetGroupLowerBound(iLevel) + 1 end function function Avg(strExpr, iLevel) Dim nSum Dim nCount nSum = Sum(strExpr, iLevel) nCount = Count(strExpr, iLevel) if nCount > 0 then Avg = nSum / nCount else Avg = nSum end if end function function min(strExpr, strArgs) Dim nMin nMin = Eval(strExpr) set objCurrNodeT = objCurrNode For i = GetGroupLowerBound(iLevel) to GetGroupUpperBound(iLevel) set objCurrNode = rgGroupRowsources(iLevel).item(rgNodes(i)) nTemp = eval(strExpr) if (nTemp < nMin) then nMin = nTemp end if Next set objCurrNode = objCurrNodeT min = nMin end function function max(strExpr, strArgs) Dim nMax nMax = Eval(strExpr) set objCurrNodeT = objCurrNode For i = GetGroupLowerBound(iLevel) to GetGroupUpperBound(iLevel) set objCurrNode = rgGroupRowsources(iLevel).item(rgNodes(i)) nTemp = eval(strExpr) if (nTemp > nMax) then nMax = nTemp end if Next set objCurrNode = objCurrNodeT max = nMax end function function GetValue(strRef, nType) set objNode = objCurrNode.selectSingleNode(strRef) if (objNode is nothing) or IsNull(objNode) or IsEmpty(objNode) or not(IsObject(objNode)) then GetValue = "" exit function end if select case nType case 2 ' adSmallInt GetValue = CLng(objNode.text) exit function case 3 ' adInteger GetValue = CLng(objNode.text) exit function case 20 ' adBigInt GetValue = CLng(objNode.text) exit function case 17 ' adUnsignedTinyInt GetValue = CLng(objNode.text) exit function case 18 ' adUnsignedSmallInt GetValue = CLng(objNode.text) exit function case 19 ' adUnsignedInt GetValue = CLng(objNode.text) exit function case 21 ' adUnsignedBigInt GetValue = CLng(objNode.text) exit function case 4 ' adSingle GetValue = CDbl(objNode.text) exit function case 5 ' adDouble GetValue = CDbl(objNode.text) exit function case 6 ' adCurrency GetValue = CCur(objNode.text) exit function case 14 ' adDecimal GetValue = CDbl(objNode.text) exit function case 131 ' adNumeric GetValue = CDbl(objNode.text) exit function case 139 ' adVarNumeric GetValue = CDbl(objNode.text) exit function case 11 ' adBoolean GetValue = CBool(objNode.text) exit function case 7 ' adDate GetValue = BuildDateFromStr(objNode.text, true) exit function case 133 ' adDBDate GetValue = BuildDateFromStr(objNode.text, true) exit function case 134 ' adDBTime GetValue = BuildDateFromStr(objNode.text, true) exit function case 135 ' adDBTimeStamp GetValue = BuildDateFromStr(objNode.text, true) exit function case 8 ' adBSTR case 120 ' adChar case 200 ' adVarChar case 201 ' adLongVarChar case 130 ' adWChar: case 202 ' adVarWChar case 203 ' adLongVarWChar end select 'Default are strings GetValue = objNode.text end function function GetGroupLowerBound(iLevel) iBound = iCurrNode-1 iIndex = cGroups*(iBound) + iLevel 'Error checking if (iIndex >= cGroupBoundaries or iBound >= cNodes) then GetGroupLowerBound = 0 exit function end if do while (iIndex >= 0 and iBound >= 1) if rgfGroupBoundaries(iIndex) then GetGroupLowerBound = iBound + 1 exit function else iBound = iBound - 1 iIndex = cGroups*(iBound) + iLevel end if loop GetGroupLowerBound = 0 end function function GetGroupUpperBound(iLevel) iBound = iCurrNode iIndex = cGroups*(iBound) + iLevel 'Error checking if (iIndex < 0 or iBound < 0) then GetGroupUpperBound = cNodes - 1 exit function end if do while (iIndex < cGroupBoundaries and iBound < (cNodes - 1)) if rgfGroupBoundaries(iIndex) then GetGroupUpperBound = iBound exit function else iBound = iBound + 1 iIndex = cGroups*(iBound) + iLevel end if loop GetGroupUpperBound = cNodes - 1 end function function OnGroupHeader(objElem, iLevel) if onFirstNode then OnGroupHeader = true exit function end if iIndex = cGroups*(iCurrNode-1) + iLevel if (iLevel >= cGroups) or (iIndex >= cGroupBoundaries) then OnGroupHeader = false exit function end if OnGroupHeader = rgfGroupBoundaries(iIndex) end function function OnGroupFooter(objElem, iLevel) if OnLastNode then OnGroupFooter = true exit function end if iIndex = cGroups*(iCurrNode) + iLevel if (iLevel >= cGroups) or (iIndex >= cGroupBoundaries) then OnGroupFooter = false exit function end if OnGroupFooter = rgfGroupBoundaries(iIndex) end function function OnGroupBoundary(objPrev, objCurr, strGroupOn, strInterval) dim strPrevValue dim strCurrValue if (objPrev is nothing) and (objCurr is nothing) then OnGroupBoundary = false exit function else if (objPrev is nothing) or (objCurr is nothing) then OnGroupBoundary = true exit function end if end if strPrevValue = objPrev.text strCurrValue = objCurr.text select case strGroupOn case "each value" if (strPrevValue = strCurrValue) then OnGroupBoundary = false exit function end if case "prefix characters" dim cChars cChars = cInt(strInterval) if (Mid(strPrevValue, 1, cChars) = Mid(strCurrValue, 1, cChars)) then OnGroupBoundary = false exit function end if case "year" if (Mid(strPrevValue, 1, 4) = Mid(strCurrValue, 1, 4)) then OnGroupBoundary = false exit function end if case "quarter" if (Mid(strPrevValue, 1, 4) = Mid(strCurrValue, 1, 4)) then dim qtrPrev dim qtrCurr qtrPrev = Int(Cint(Mid(strPrevValue, 6, 2) - 1) / 3) qtrCurr = Int(Cint(Mid(strCurrValue, 6, 2) - 1) / 3) if (qtrPrev = qtrCurr) then OnGroupBoundary = false exit function end if end if case "month" if (Mid(strPrevValue, 1, 7) = Mid(strCurrValue, 1, 7)) then OnGroupBoundary = false exit function end if case "week" if (Mid(strPrevValue, 1, 4) = Mid(strCurrValue, 1, 4)) then dim datePrev dim dateCurr datePrev = BuildDateFromStr(strPrevValue, false) dateCurr = BuildDateFromStr(strCurrValue, false) if (DatePart("ww", datePrev) = DatePart("ww", dateCurr)) then OnGroupBoundary = false exit function end if end if case "day" if (Mid(strPrevValue, 1, 10) = Mid(strCurrValue, 1, 10)) then OnGroupBoundary = false exit function end if case "hour" if (Mid(strPrevValue, 1, 13) = Mid(strCurrValue, 1, 13)) then OnGroupBoundary = false exit function end if case "minute" if (Mid(strPrevValue, 1, 16) = Mid(strCurrValue, 1, 16)) then OnGroupBoundary = false exit function end if case "interval" if (Int(CInt(strPrevValue) / CInt(strInterval)) = Int(CInt(strCurrValue) / CInt(strInterval))) then OnGroupBoundary = false exit function end if end select OnGroupBoundary = true end function function OnFirstNode if iCurrNode = 0 then OnFirstNode = true exit function end if OnFirstNode = false end function function OnLastNode if iCurrNode = (cNodes-1) then OnLastNode = true exit function end if OnLastNode = false end function function BuildDateFromStr(strDate, fIncludeTime) Dim Date Date = DateSerial(Mid(strDate, 1, 4), Mid(strDate, 6, 2), Mid(strDate, 9, 2)) if (fIncludeTime) then Date = DateAdd("h", Mid(strDate, 12, 2), Date) Date = DateAdd("n", Mid(strDate, 15, 2), Date) Date = DateAdd("s", Mid(strDate, 18, 2), Date) end if BuildDateFromStr = Date end function </xsl:cdata> </xsl:element> </xsl:element> </xsl:otherwise> </xsl:choose> </xsl:element> </xsl:template> <xsl:template match="STYLE"> .<xsl:value-of select="@id"/> { <xsl:eval>GetTextStyle(this, false)</xsl:eval> } </xsl:template> <xsl:template match="REPORT"> <xsl:element name="BODY"> <xsl:attribute name="link"><xsl:eval>GetNodeText(this, "LINK", "#0000ff")</xsl:eval></xsl:attribute> <xsl:attribute name="vlink"><xsl:eval>GetNodeText(this, "VLINK", "#800080")</xsl:eval></xsl:attribute> <xsl:if test="BACKGROUND-IMAGE"> <xsl:attribute name="style"><xsl:eval>GetBodyStyle(this.selectSingleNode("/RPTML/REPORT[0]/BACKGROUND-IMAGE"))</xsl:eval></xsl:attribute> </xsl:if> <xsl:eval no-entities="true">GetTableTags(this, true)</xsl:eval> <xsl:eval no-entities="true">GetGroupFilters(this.selectSingleNode("/RPTML"))</xsl:eval> <xsl:choose> <xsl:when test="ENCODED-RECORD-SOURCE"> <xsl:element name="xsl:for-each"> <xsl:attribute name="select">/dataroot/<xsl:value-of select="ENCODED-RECORD-SOURCE"/></xsl:attribute> <xsl:if test="GROUP-LEVEL"> <xsl:attribute name="order-by"><xsl:eval>GetOrderByClause(this)</xsl:eval></xsl:attribute> </xsl:if> <xsl:element name="xsl:eval">AppendNodeIndex(me)</xsl:element> </xsl:element> <xsl:element name="xsl:for-each"> <xsl:attribute name="select">/dataroot/<xsl:value-of select="ENCODED-RECORD-SOURCE"/></xsl:attribute> <xsl:if test="GROUP-LEVEL"> <xsl:attribute name="order-by"><xsl:eval>GetOrderByClause(this)</xsl:eval></xsl:attribute> </xsl:if> <xsl:element name="xsl:eval">CacheCurrentNode(me)</xsl:element> <xsl:element name="xsl:if"> <xsl:attribute name="expr">OnFirstNode</xsl:attribute> <xsl:apply-templates select="SECTION[@type='report_header']"/> <xsl:apply-templates select="SECTION[@type='page_header']"/> </xsl:element>  <xsl:for-each select="GROUP-LEVEL[GROUP-HEADER='true']" order-by="+ number(@id)"> <xsl:element name="xsl:if"> <xsl:attribute name="expr"><xsl:eval>GetHeaderCondition(this)</xsl:eval></xsl:attribute> <xsl:apply-templates select="../SECTION[@type='group_header' and @idref=context()/@id]"/> </xsl:element> </xsl:for-each> <xsl:if test="SECTION[@type='detail']/REPORT-ITEM"> <xsl:apply-templates select="SECTION[@type='detail']"/> </xsl:if>  <xsl:for-each select="GROUP-LEVEL[GROUP-FOOTER='true']" order-by="- number(@id)"> <xsl:element name="xsl:if"> <xsl:attribute name="expr"><xsl:eval>GetFooterCondition(this)</xsl:eval></xsl:attribute> <xsl:apply-templates select="../SECTION[@type='group_footer' and @idref=context()/@id]"/> </xsl:element> </xsl:for-each> <xsl:element name="xsl:if"> <xsl:attribute name="expr">OnLastNode</xsl:attribute> <xsl:apply-templates select="SECTION[@type='page_footer']"/> <xsl:apply-templates select="SECTION[@type='report_footer']"/> </xsl:element> <xsl:element name="xsl:eval">NextNode()</xsl:element> </xsl:element> </xsl:when> <xsl:otherwise> <xsl:apply-templates select="SECTION[@type='report_header']"/> <xsl:apply-templates select="SECTION[@type='page_header']"/> <xsl:apply-templates select="SECTION[@type='page_footer']"/> <xsl:apply-templates select="SECTION[@type='report_footer']"/> </xsl:otherwise> </xsl:choose> <xsl:eval no-entities="true">GetTableTags(this, false)</xsl:eval> </xsl:element> </xsl:template> <xsl:template match="SECTION[../LAYOUT='absolute']"> <xsl:element name="DIV"> <xsl:attribute name="style"><xsl:eval>GetTextStyle(this, true)</xsl:eval>; POSITION: relative</xsl:attribute> <xsl:apply-templates select="REPORT-TEXT|REPORT-ITEM"/> </xsl:element> </xsl:template> <xsl:template match="SECTION[../LAYOUT='grid']"> <TR><xsl:apply-templates select="REPORT-TEXT|REPORT-ITEM"/></TR> </xsl:template> <xsl:template match="REPORT-TEXT"> <xsl:eval no-entities="true">this.text</xsl:eval> </xsl:template> <xsl:template match="REPORT-ITEM[(@type='text-box' or @type='label' or @type='combo-box' or @type='list-box') and not(HREF)]"> <xsl:choose> <xsl:when test="../..[LAYOUT='absolute']"> <xsl:element name="SPAN"> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:attribute name="style"><xsl:eval>GetTextStyle(this, false)</xsl:eval>; OVERFLOW: hidden; POSITION: absolute</xsl:attribute> <xsl:apply-templates /> </xsl:element> </xsl:when> <xsl:when test="../..[LAYOUT='grid']"> <xsl:if test="..[@type='page_header']"> <TH> <xsl:attribute name="style">width: <xsl:value-of select="COLUMN-WIDTH"/></xsl:attribute> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:apply-templates /> </TH> </xsl:if> <xsl:if test="..[@type='detail']"> <TD> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:apply-templates /> </TD> </xsl:if> </xsl:when> </xsl:choose> </xsl:template> <xsl:template match="REPORT-ITEM[(@type='text-box' or @type='label') and HREF]"> <xsl:element name="A"> <xsl:attribute name="HREF"><xsl:value-of select="HREF"/></xsl:attribute> <xsl:choose> <xsl:when test="../..[LAYOUT='absolute']"> <xsl:element name="SPAN"> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:attribute name="style"><xsl:eval>GetHyperlinkStyle(this)</xsl:eval>; OVERFLOW: hidden; POSITION: absolute</xsl:attribute> <xsl:apply-templates /> </xsl:element> </xsl:when> <xsl:when test="../..[LAYOUT='grid']"> <xsl:if test="..[@type='page_header']"> <xsl:attribute name="style">width: <xsl:value-of select="COLUMN-WIDTH"/></xsl:attribute> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:apply-templates /> </xsl:if> <xsl:if test="..[@type='detail']"> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:apply-templates /> </xsl:if> </xsl:when> </xsl:choose> </xsl:element> </xsl:template> <xsl:template match="REPORT-ITEM[@type='check-box']"> <xsl:element name="xsl:choose"> <xsl:element name="xsl:when"> <xsl:attribute name="expr"><xsl:eval>GetCheckboxCondition(this)</xsl:eval> = 0</xsl:attribute> <xsl:element name="INPUT"> <xsl:attribute name="TYPE">checkbox</xsl:attribute> <xsl:attribute name="style"><xsl:eval>GetCheckboxStyle(this)</xsl:eval>; POSITION: absolute</xsl:attribute> </xsl:element> </xsl:element> <xsl:element name="xsl:otherwise"> <xsl:element name="INPUT"> <xsl:attribute name="TYPE">checkbox</xsl:attribute> <xsl:attribute name="CHECKED"/> <xsl:attribute name="style"><xsl:eval>GetCheckboxStyle(this)</xsl:eval>; POSITION: absolute</xsl:attribute> </xsl:element> </xsl:element> </xsl:element> </xsl:template> <xsl:template match="REPORT-ITEM[@type='line']"> <xsl:element name="HR"> <xsl:if test="@id"><xsl:attribute name="id"><xsl:value-of select="@id"/></xsl:attribute></xsl:if> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:attribute name="style"><xsl:eval>GetLineStyle(this)</xsl:eval>; POSITION: absolute</xsl:attribute> </xsl:element> </xsl:template> <xsl:template match="REPORT-ITEM[@type='rectangle']"> <xsl:element name="DIV"> <xsl:if test="@id"><xsl:attribute name="id"><xsl:value-of select="@id"/></xsl:attribute></xsl:if> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:attribute name="style"><xsl:eval>GetRectangleStyle(this)</xsl:eval>; POSITION: absolute</xsl:attribute> <xsl:eval no-entities="true">'<xsl:eval no-entities="true">"&nbsp;"</xsl:eval>'</xsl:eval> </xsl:element> </xsl:template> <xsl:template match="REPORT-ITEM[@type='image']"> <xsl:element name="IMG"> <xsl:if test="@id"><xsl:attribute name="id"><xsl:value-of select="@id"/></xsl:attribute></xsl:if> <xsl:if test="CLASS"><xsl:attribute name="class"><xsl:value-of select="CLASS"/></xsl:attribute></xsl:if> <xsl:attribute name="style"><xsl:eval>GetImageStyle(this)</xsl:eval>; POSITION: absolute</xsl:attribute> <xsl:if test="SRC"><xsl:attribute name="SRC"><xsl:value-of select="SRC"/></xsl:attribute></xsl:if> </xsl:element> </xsl:template> <xsl:template match="ENCODED-CONTROL-SOURCE[@type='expression']"> <xsl:element name="xsl:eval"><xsl:attribute name="no-entities">true</xsl:attribute><xsl:eval no-entities="true">FixExpression(this, this.selectSingleNode("../FORMAT"), this.selectSingleNode("../DECIMAL-PLACES"), this.selectSingleNode("../FORMAT-LCID"), true)</xsl:eval></xsl:element> </xsl:template> <xsl:template match="ENCODED-CONTROL-SOURCE[not(@type) and text()!='']"> <xsl:choose> <xsl:when test="/RPTML/REPORT/DATA-MODEL/ROW-SOURCE[@id=/RPTML/REPORT[0]/ENCODED-RECORD-SOURCE]/FIELD[@id=context()!text() and (@datatype='128' or @datatype='204' or @datatype='205')]"> <xsl:element name="xsl:if"> <xsl:attribute name="test"><xsl:eval>this.text</xsl:eval></xsl:attribute> [...] </xsl:element> </xsl:when> <xsl:otherwise> <xsl:element name="xsl:eval"><xsl:attribute name="no-entities">true</xsl:attribute><xsl:eval>AddFormatting("GetValue(\"" + FixupFieldNames(this.text, this, true) + "\", " + GetDataType(this.selectSingleNode("../CONTROL-SOURCE")) + ")", this.selectSingleNode("../FORMAT"), this.selectSingleNode("../DECIMAL-PLACES"), this.selectSingleNode("../FORMAT-LCID"))</xsl:eval></xsl:element> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template match="CAPTION[not(../ENCODED-CONTROL-SOURCE)]"> <xsl:value-of select="."/> </xsl:template> <xsl:script><![CDATA[ function GetOrderByClause(objElem) { var strOrderBy = ""; var objNodes = objElem.selectNodes("GROUP-LEVEL"); for (var iNode = 0; iNode < objNodes.length; iNode++) { if (iNode > 0) strOrderBy = strOrderBy + ";"; var objNode = objNodes.item(iNode); if (objNode.selectSingleNode("SORT-ORDER") == null || objNode.selectSingleNode("SORT-ORDER").text == "ascending") strOrderBy = strOrderBy + "+ "; else strOrderBy = strOrderBy + "- "; var strDataType = GetNodeText(objElem, "/RPTML/REPORT[0]/DATA-MODEL/ROW-SOURCE/FIELD[@id = '" + objNode.selectSingleNode("CONTROL-SOURCE").text + "']/@datatype", "8"); if (IsNumberType(Number(strDataType), false)) strOrderBy = strOrderBy + "number(" + objNode.selectSingleNode("ENCODED-CONTROL-SOURCE").text + ")"; else strOrderBy = strOrderBy + objNode.selectSingleNode("ENCODED-CONTROL-SOURCE").text; } return strOrderBy; } function GetGroupFilters(objElem) { var objLevels = objElem.selectNodes("/RPTML/REPORT[0]/GROUP-LEVEL"); var strFilter = ""; var strField = ""; var strRowsource = ""; var strGroupOn = ""; var strGroupInterval = ""; var objLevel; for (var iLevel = 0; iLevel < objLevels.length; iLevel++) { objLevel = objLevels.item(iLevel); if (objLevel != null) { strField = GetNodeText(objLevel, "ENCODED-CONTROL-SOURCE", ""); strRowsource = GetNodeText(objLevel, "../ENCODED-RECORD-SOURCE", ""); strGroupOn = GetNodeText(objLevel, "GROUP-ON", "each value"); strGroupInterval = GetNodeText(objLevel, "GROUP-INTERVAL", "1"); strFilter += "<xsl:eval>SetGroupFilter(" + iLevel + ", \"" + strField + "\", \"" + strRowsource + "\", \"" + strGroupOn + "\", \"" + strGroupInterval + "\")</xsl:eval>"; } } return strFilter; } function GetHeaderCondition(objLevel) { var iLevel = childNumber(objLevel) - 1; return "OnGroupHeader(me, " + iLevel + ")"; } function GetFooterCondition(objLevel) { var iLevel = childNumber(objLevel) - 1; return "OnGroupFooter(me, " + iLevel + ")"; } var rgFunc = new Array("IIf"); var rgTotal = new Array("Sum", "Count", "Avg", "Min", "Max"); function FixExpression(objElem, objFormat, objDecimalPlaces, objLcid, fUseFormat) { var objNodes; var strExpr = objElem.text; strExpr = FixInnerQuotes(strExpr); for (var iFunc = 0; iFunc < rgFunc.length; iFunc++) //undone check if we really need this, case sensitive strExpr = strExpr.replace(new RegExp(rgFunc[iFunc] + "\\(", "gi"), rgFunc[iFunc] + "("); strExpr = strExpr.replace(/&/g, '&'); strExpr = strExpr.replace(/\[page\]/gi, 'Page()'); strExpr = strExpr.replace(/\[pages\]/gi, 'Pages()'); strExpr = strExpr.replace(/is\s+null/gi, '= \"\"'); strExpr = strExpr.replace(/is\s+not\s+null/gi, '<> \"\"'); strExpr = FixNzFunction(strExpr); // // Replace references to other expressions with expression contents // if (objElem.selectSingleNode("@id") != null) objNodes = objElem.selectNodes("/RPTML/REPORT[0]/SECTION/REPORT-ITEM[@id != '' and @id != '" + objElem.selectSingleNode("@id").text + "']"); else objNodes = objElem.selectNodes("/RPTML/REPORT[0]/SECTION/REPORT-ITEM[@id != '']"); for (var iNode = 0; iNode < objNodes.length; iNode++) { var objNode = objNodes.item(iNode); if (objNode.selectSingleNode("ENCODED-CONTROL-SOURCE[@type='expression']") != null) { var strNodeID = objNode.selectSingleNode("@id").text; var strSource = objNode.selectSingleNode("ENCODED-CONTROL-SOURCE").text; strExpr = strExpr.replace(new RegExp("\\[" + strNodeID + "\\]", "gi"), "(" + strSource + ")"); } } if (!FIsValidExpression(strExpr)) return "Format(\"\", \"\", \"\")" // // Replace all references to fields with GetValue statement // strExpr = FixGetValue(objElem, strExpr); // // Fix up all instances of total functions (sum, count, avg, min, max) // if (objElem.selectSingleNode("../../@idref") != null) { var objLevel = objElem.selectSingleNode("/RPTML/REPORT[0]/GROUP-LEVEL[@id='" + objElem.selectSingleNode("../../@idref").text + "']"); var iLevelFilter = childNumber(objLevel) - 1; var strFilter = ", " + iLevelFilter; for (var iTotal = 0; iTotal < rgTotal.length; iTotal++) { strExpr = FixAggregate(rgTotal[iTotal], strExpr, strFilter); } } strExpr = FixFormat(strExpr); if (fUseFormat) strExpr = AddFormatting(strExpr, objFormat, objDecimalPlaces, objLcid); return strExpr; } function FixFormat(strExpr) { var strFunctionName = "Format"; if (strExpr == null || strExpr.length == 0 || strExpr.match(new RegExp(strFunctionName + "\\(", "i")) == null) return strExpr; var strInFunction = ""; var strAfterFunction = ""; var strBeforeFunction = strExpr.replace(new RegExp("\^(.*)" + strFunctionName + ".*$", "i"), "$1" + strFunctionName + "\("); var strTemp = strExpr.replace(new RegExp("\^.*" + strFunctionName + "\\(", "i"), ""); // find matching parens var len = strTemp.length var count = 1; for(var i=0; i<len; i++) { if (count > 0) //before the matching paren { if (strTemp.charAt(i) == '(') count++; else if (strTemp.charAt(i) == ')') count--; if (count > 0) strInFunction += strTemp.charAt(i); } else //after the matching paren { strAfterFunction += strTemp.charAt(i); } } return strBeforeFunction + strInFunction + ", \"\")" + strAfterFunction; } function FixAggregate(strFunctionName, strExpr, strFilter) { if (strExpr == null || strExpr.length == 0 || strExpr.match(new RegExp(strFunctionName + "\\(", "i")) == null) return strExpr; var strInFunction = ""; var strAfterFunction = ""; var strBeforeFunction = strExpr.replace(new RegExp("\^(.*)" + strFunctionName + ".*$", "i"), "$1" + strFunctionName + "\("); var strTemp = strExpr.replace(new RegExp("\^.*" + strFunctionName + "\\(", "i"), ""); // find matching parens var len = strTemp.length var count = 1; for(var i=0; i<len; i++) { if (count > 0) //before the matching paren { if (strTemp.charAt(i) == '(') count++; else if (strTemp.charAt(i) == ')') count--; if (count > 0) strInFunction += strTemp.charAt(i); } else //after the matching paren { strAfterFunction += strTemp.charAt(i); } } return strBeforeFunction + "\"" + DoubleQuotes(strInFunction) + "\"" + strFilter + ")" + strAfterFunction; } function FixGetValue(objElem, strExpr) { if (strExpr == null || strExpr.length == 0 || strExpr.match(/^[^\[]*\[[^\]]*\]/) == null) return strExpr; var strBeforeFunction = strExpr.replace(/^([^\[]*)\[.*$/, "$1"); var strInFunction = FixupFieldNames(strExpr.replace(/^[^\[]*\[([^\]]*)\].*$/, "$1"), objElem, false); var strAfterFunction = strExpr.replace(/^[^\[]*\[[^\]]*\](.*)$/, "$1"); var strDataType = GetNodeText(objElem, "/RPTML/REPORT[0]/DATA-MODEL/ROW-SOURCE/FIELD[@id = '" + strInFunction + "']/@datatype", "8"); strInFunction = FixupFieldNames(strInFunction, objElem, true); return strBeforeFunction + "GetValue(\"" + strInFunction + "\", " + strDataType + ")" + FixGetValue(objElem, strAfterFunction); } function FixNzFunction(strExpr) { if (strExpr == null || strExpr.length == 0 || strExpr.match(/nz\(/gi) == null) return strExpr; var strInFunction = ""; var strAfterFunction = ""; var strBeforeFunction = strExpr.replace(new RegExp("\^(.*)nz.*$", "i"), "$1nz\("); var strTemp = strExpr.replace(new RegExp("\^.*nz\\(", "i"), ""); // find matching parens var len = strTemp.length var count = 1; for(var i=0; i<len; i++) { if (count > 0) //before the matching paren { if (strTemp.charAt(i) == '(') count++; else if (strTemp.charAt(i) == ')') count--; if (count > 0) strInFunction += strTemp.charAt(i); } else //after the matching paren { strAfterFunction += strTemp.charAt(i); } } if (strInFunction.match(/,/) == null) return strBeforeFunction + strInFunction + ",\"0\")" + strAfterFunction; else return strExpr; } function AddFormatting(strRef, objFormat, objDecimalPlaces, objLcid) { if (objFormat == null) return "Format(" + strRef + ",\"\" ,\"\")"; strFormat = DoubleQuotes(objFormat.text); switch (strFormat) { case "": case "General Number": case "General Date": case "Long Date": case "Long Time": case "Medium Time": case "Short Time": case "True/False": case "Yes/No": case "On/Off": case "Medium Date": case "Short Date": return "Format(" + strRef + ", \"" + strFormat + "\", \"\")"; case "Currency": return "Format(" + strRef + ", \"" + strFormat + "\", \"" + GetNodeText(objLcid, ".", "") + "\")"; case "Euro": case "Fixed": case "Standard": case "Percent": case "Scientific": return "Format(" + strRef + ", \"" + strFormat + "\", \"" + GetNodeText(objDecimalPlaces, ".", "2") + "\")"; } return "Format(" + strRef + ", \"" + strFormat + "\", \"\")"; } function GetDecimals(objDecimalPlaces, nDefault) { var nDecimals = nDefault; if (objDecimalPlaces != null && objDecimalPlaces.text != 'auto' && Number(objDecimalPlaces.text) != nDefault) nDecimals = objDecimalPlaces.text; if (nDecimals == 0) return ''; var strDecimals = '.'; for (var i = 0; i < nDecimals; i++) strDecimals = strDecimals + '0'; return strDecimals; } function GetDataType(objFieldName) { if (objFieldName != null) { var strRecordSource = objFieldName.selectSingleNode("/RPTML/REPORT/RECORD-SOURCE").text; strRecordSource = strRecordSource.replace(/^[ ]*(.+[^ ])[ ]*$/, '$1'); // remove spaces from beginning and end var datatype = objFieldName.selectSingleNode("/RPTML/REPORT[0]/DATA-MODEL/ROW-SOURCE[@id='" + strRecordSource + "']/FIELD[@id='" + FixupFieldNames(objFieldName.text, objFieldName, false) + "']/@datatype"); if (datatype != null) return datatype.text; } return 8; // string type } function IsNumberType(nDataType, fIsDateANumber) { switch (nDataType) { case 16: // adTinyInt case 2: // adSmallInt case 3: // adInteger case 20: // adBigInt case 17: // adUnsignedTinyInt case 18: // adUnsignedSmallInt case 19: // adUnsignedInt case 21: // adUnsignedBigInt case 4: // adSingle case 5: // adDouble case 6: // adCurrency case 14: // adDecimal case 131: // adNumeric case 139: // adVarNumeric case 11: // adBoolean return true; case 7: // adDate case 133: // adDBDate case 134: // adDBTime case 135: // adDBTimeStamp return fIsDateANumber; case 8: // adBSTR case 120: // adChar case 200: // adVarChar case 201: // adLongVarChar case 130: // adWChar: case 202: // adVarWChar case 203: // adLongVarWChar default: return false; } } var rgTextAttr = new Array("COLOR", "BACKGROUND-COLOR", "BORDER-WIDTH", "BORDER-COLOR", "TEXT-ALIGN", "WRITING-MODE", "VISIBILITY", "FONT-WEIGHT", "FONT-SIZE", "FONT-FAMILY", "FONT-STYLE", "LEFT", "TOP", "WIDTH", "HEIGHT", "TEXT-DECORATION", "PADDING-TOP", "PADDING-BOTTOM", "PADDING-RIGHT", "PADDING-LEFT"); function GetTextStyle(objElem, fIsSection) { var strStyle = GetBorderStyle(objElem); var objSource = objElem.selectSingleNode("CONTROL-SOURCE[not(@type)]"); var objClass = objElem.selectSingleNode("CLASS"); if (objSource != null && objClass != null) { var objTextAlign = objElem.selectSingleNode("/RPTML/REPORT[0]/STYLE[@id='" + objClass.text + "']/TEXT-ALIGN"); if (objTextAlign != null && objTextAlign.text == "general" && IsNumberType(Number(GetDataType(objSource)), true)) strStyle = strStyle + "TEXT-ALIGN: right; "; } if (objElem.selectSingleNode("WIDTH") == null && fIsSection) { var strWidth = GetNodeText(objElem, "/RPTML/REPORT[0]/WIDTH", ""); if (strWidth != "") strStyle = strStyle + "WIDTH: " + strWidth + "; "; } return strStyle + GetItemStyle(objElem, rgTextAttr); } function GetBorderStyle(objElem) { var objBS = objElem.selectSingleNode("BORDER-STYLE"); if (objBS != null) { if (objBS.text == "solid" || objBS.text == "double-solid") return "BORDER-STYLE: solid; "; if (objBS.text == "dashed" || objBS.text == "short-dashes" || objBS.text == "dash-dot") return "BORDER-STYLE: dashed; "; if (objBS.text == "dotted" || objBS.text == "sparse-dots" || objBS.text == "dash-dot-dot") return "BORDER-STYLE: dotted; "; return "BORDER-STYLE: " + objBS.text + "; "; } return ""; } var rgCheckboxStyle = new Array("LEFT", "TOP", "HEIGHT", "VISIBILITY"); function GetCheckboxStyle(objElem) { return GetItemStyle(objElem, rgCheckboxStyle); } var rgHyperlinkAttr = new Array("BORDER-WIDTH", "BORDER-COLOR", "BORDER-STYLE", "TEXT-ALIGN", "FONT-WEIGHT", "FONT-SIZE", "FONT-FAMILY", "FONT-STYLE", "VISIBILITY", "LEFT", "TOP", "WIDTH", "HEIGHT"); function GetHyperlinkStyle(objElem) { return GetItemStyle(objElem, rgHyperlinkAttr); } var rgLineAttr = new Array("COLOR", "BACKGROUND-COLOR", "BORDER-WIDTH", "BORDER-COLOR", "BORDER-STYLE", "VISIBILITY", "LEFT", "TOP"); function GetLineStyle(objElem) { var strStyle = GetItemStyle(objElem, rgLineAttr); var objBorder = GetStyleNode(objElem, "BORDER-WIDTH"); if (objBorder != null) { var strWidth = objElem.selectSingleNode("WIDTH").text; if (strWidth == "0in") strWidth = objBorder.text; var strHeight = objElem.selectSingleNode("HEIGHT").text; if (strHeight == "0in") strHeight = objBorder.text; if (strStyle.length > 0) strStyle = strStyle + "; "; strStyle = strStyle + "WIDTH: " + strWidth; strStyle = strStyle + "; HEIGHT: " + strHeight; } return strStyle; } var rgRectAttr = new Array("COLOR", "BACKGROUND-COLOR", "BORDER-WIDTH", "BORDER-COLOR", "BORDER-STYLE", "VISIBILITY", "LEFT", "TOP", "WIDTH", "HEIGHT"); function GetRectangleStyle(objElem) { return GetItemStyle(objElem, rgRectAttr); } var rgImageAttr = new Array("BORDER-WIDTH", "BORDER-COLOR", "BORDER-STYLE", "VISIBILITY", "LEFT", "TOP", "WIDTH", "HEIGHT"); function GetImageStyle(objElem) { var strStyle = GetItemStyle(objElem, rgImageAttr); if (strStyle.length > 0) strStyle = strStyle + "; "; strStyle = strStyle + "BACKGROUND-COLOR: silver"; return strStyle; } var rgBodyAttr = new Array("BACKGROUND-POSITION", "BACKGROUND-REPEAT"); function GetBodyStyle(objElem) { var strStyle = ""; if (objElem != null) { strStyle = "BACKGROUND-IMAGE:url('" + objElem.text + "'); "; strStyle += GetItemStyle(objElem.selectSingleNode("/RPTML/REPORT[0]"), rgBodyAttr); } return strStyle; } function GetItemStyle(objElem, rgAttr) { var cStyles = 0; var strStyle = ""; for (var iAttr in rgAttr) if (objElem.selectSingleNode(rgAttr[iAttr]) != null) { if (cStyles > 0) strStyle = strStyle + "; "; strStyle = strStyle + rgAttr[iAttr] + ": " + objElem.selectSingleNode(rgAttr[iAttr]).text; cStyles++; } return strStyle; } function GetStyleNode(objElem, strName) { var objWidth = objElem.selectSingleNode(strName); if (objWidth == null) objWidth = objElem.selectSingleNode("/RPTML/REPORT[0]/STYLE[@id='"+objElem.selectSingleNode("CLASS").text+"']/" + strName); return objWidth; } // // Gets the Field name from a table.field name, also makes sure field is correct case // function FixupFieldNames(strField, objElem, fConvertSpaces) { var strFieldName = strField.replace (/.*\./, ''); //strip out table in table.field var objFields = objElem.selectNodes("/RPTML/REPORT[0]/DATA-MODEL/ROW-SOURCE/FIELD[@id]"); var strTemp = ""; for (var i = 0; i < objFields.length; i++) { strTemp = GetNodeText(objFields.item(i), "@id", ""); if (strTemp.match(new RegExp("\^" + strFieldName + "$", "i"))) { return (fConvertSpaces ? strTemp.replace(/ /g, '_x0020_') : strTemp); // spaces in data xml are _x0020_ } else if (strTemp.match(new RegExp("\^" + strField + "$", "i"))) { return (fConvertSpaces ? strTemp.replace(/ /g, '_x0020_') : strTemp); // spaces in data xml are _x0020_ } } return (fConvertSpaces ? strFieldName.replace(/ /g, '_x0020_') : strFieldName); // spaces in data xml are _x0020_ } function DoubleQuotes(strExpr) { return strExpr.replace(/\"/g, "\"\""); } function GetCheckboxCondition(objElem) { var objSource = objElem.selectSingleNode("ENCODED-CONTROL-SOURCE"); if (objSource != null) { if (GetNodeText(objSource, "@type", "") == "expression") { return FixExpression(objSource, objElem.selectSingleNode("FORMAT"), objElem.selectSingleNode("DECIMAL-PLACES"), objElem.selectSingleNode("FORMAT-LCID"), false); } else { strSource = FixupFieldNames(objSource.text, objElem, true); var strCondition = 'GetValue("' + strSource + '", ' + GetDataType(objSource) + ')'; return strCondition; } } return '0'; } function GetNodeText(objNode, strPath, strDefault) { var objResult; if (objNode != null) objResult = objNode.selectSingleNode(strPath); return (objResult != null ? objResult.text : strDefault); } // error messages defined var iError = -1; var rgErrorMessages = new Array("Your reportML has a problem and cannot be transformed.", // generic error message "This XSL does not support grouping on expressions at this time." // Grouped on Expressions ); // this function checks the reportML properties to make sure we can present this report function FInvalidReportML(objElem) { // iError = 1 -> check for expressions for order-by clause var objNodes = objElem.selectNodes("/RPTML/REPORT[0]/GROUP-LEVEL"); var objNode; for (var iNode = 0; iNode < objNodes.length; iNode++) { objNode = objNodes.item(iNode); if (objNode.selectSingleNode("ENCODED-CONTROL-SOURCE[@type='expression']") != null) { iError = 1; return true; } } return false; } function HandleErrors(objElem) { if ((iError >= 0) && iError < rgErrorMessages.length) return "<HTML><BODY>" + rgErrorMessages[iError] + "</BODY></HTML>"; return "<HTML><BODY>" + rgErrorMessages[0] + "</BODY></HTML>"; } function FixInnerQuotes(strExpr) { var fNeedMatchSingleQuote = false; var fNeedMatchDoubleQuote = false; var fIsSingleQuote = false; var fIsDoubleQuote = false; var len = strExpr.length; var strTemp = ""; for(var i=0; i<len; i++) { fIsDoubleQuote = strExpr.charAt(i) == '"'; fIsSingleQuote = strExpr.charAt(i) == "'"; if (fIsSingleQuote || fIsDoubleQuote) { if (fNeedMatchSingleQuote) { if (fIsDoubleQuote) { strTemp += "\"\""; } else { strTemp += "\""; fNeedMatchSingleQuote = false; } } else if (fNeedMatchDoubleQuote) { if (fIsDoubleQuote) { strTemp += "\""; fNeedMatchDoubleQuote = false; } else { strTemp += "'"; } } else // found a beginning qoute { if (fIsDoubleQuote) fNeedMatchDoubleQuote = true; else fNeedMatchSingleQuote = true; strTemp += "\""; } } else { strTemp += strExpr.charAt(i); } } return strTemp; } function FIsValidExpression(strSource) { if ((strSource.match(/\[Forms\]\!/i) != null) || (strSource.match(/Forms\!/i) != null) || (strSource.match(/Forms\([^\!]*\!/i) != null) || (strSource.match(/\[Reports\]\!/i) != null) || (strSource.match(/Reports\!/i) != null) || (strSource.match(/Reports\([^\!]*\!/i) != null) || (strSource.match(/\[Form\]\!/i) != null) || (strSource.match(/Form\!/i) != null) || (strSource.match(/Form\([^\!]*\!/i) != null) || (strSource.match(/\[Report\]\!/i) != null) || (strSource.match(/Report\!/i) != null) || (strSource.match(/Report\([^\!]*\!/i) != null)) return false; else return true; } function GetTableTags(objElem, fBeginTag) { if (GetNodeText(objElem, "/RPTML/REPORT[0]/LAYOUT", "") == "grid") { if (fBeginTag) return "<TABLE BORDER=\"1\" BGCOLOR=\"#ffffff\" CELLSPACING=\"0\" CELLPADDING=\"0\"><TBODY>"; else return "</TBODY></TABLE>"; } else return ""; } ]]></xsl:script> </xsl:stylesheet>